while (<*.m>) {
    $fname = $_;
    open(F,$fname);
    @a = <F>;
    close(F);
    foreach my $line (@a){
	$line =~s/deriv1f/der1/g;
	$line =~s/elelmult_lastindx/elelmult_firstindx/g;
	$line =~s/elelmultfirstindx/elelmult_firstindx/g;
	$line =~ s/d\(:\),/d,/g;
    }
    open(F,">$fname");
    print F @a;
    close(F);
}
